home *** CD-ROM | disk | FTP | other *** search
- /* Panel managing.
- Copyright (C) 1994, 1995 Janne Kukonlehto
- Copyright (C) 1995 Miguel de Icaza
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
-
- #include <config.h>
- #include "tty.h"
- #include <sys/types.h>
- #include <sys/stat.h>
- #include <sys/param.h>
- #include <malloc.h>
- #include "mad.h"
- #include "util.h" /* statfs calls */
- #include "mouse.h" /* Gpm_Event */
- #include "color.h"
- #include "dlg.h"
- #include "info.h"
- #include "dir.h" /* required by panel */
- #include "panel.h" /* for the panel structure */
- #include "main.h" /* opanel, cpanel definitions */
- #include "win.h" /* print_bytesize */
- #include "layout.h"
-
- /* Have we called the init_my_statfs routine? */
- static int initialized;
- struct my_statfs myfs_stats;
-
- static int info_event (Gpm_Event *event, WInfo *info)
- {
- return 0;
- }
-
- static void info_box (Dlg_head *h, WInfo *info)
- {
- standend ();
- if (hascolors)
- attrset (NORMAL_COLOR);
- widget_erase (&info->widget);
- draw_double_box (h, info->widget.y, info->widget.x,
- info->widget.lines, info->widget.cols);
- }
-
- #ifndef VERSION
- # define VERSION "undefined"
- #endif
-
- void info_show_info (WInfo *info)
- {
- struct stat buf;
-
- #ifndef HAVE_X
- if (!is_idle ())
- return;
-
- info_box (info->widget.parent, info);
- set_attr (0, 1);
- widget_move (&info->widget, 1, 3);
- printw ("Midnight Commander %s", VERSION);
- set_attr (0, 0);
- widget_move (&info->widget, 2, 1);
- hline (ACS_HLINE|NORMAL_COLOR, info->widget.x-2);
- #endif
- if (get_current_type () != view_listing)
- return;
-
- if (!info->ready)
- return;
-
- my_statfs (&myfs_stats, cpanel->cwd);
- buf = cpanel->dir.list [cpanel->selected].buf;
- #ifndef HAVE_X
- /* Print only lines which fit */
- switch (info->widget.y-2){
- /* Note: all cases are fall-throughs */
-
- default:
-
- case 16:
- widget_move (&info->widget, 16, 3);
- if (myfs_stats.nfree >0 || myfs_stats.nodes > 0)
- printw ("Free nodes %d (%d%%) of %d",
- myfs_stats.nfree,
- myfs_stats.total
- ? 100 * myfs_stats.nfree / myfs_stats.nodes : 0,
- myfs_stats.nodes);
- else
- addstr ("No node information");
-
- case 15:
- widget_move (&info->widget, 15, 3);
- if (myfs_stats.avail > 0 || myfs_stats.total > 0){
- addstr ("Free space ");
- print_bytesize (myfs_stats.avail, 1);
- printw (" (%d%%) of ", myfs_stats.total
- ? 100 * myfs_stats.avail / myfs_stats.total : 0);
- print_bytesize (myfs_stats.total, 1);
- } else
- addstr ("No space information");
-
- case 14:
- widget_move (&info->widget, 14, 3);
- printw ("Type: %s ", myfs_stats.typename ? myfs_stats.typename : "non-local vfs");
- if (myfs_stats.type != 0xffff && myfs_stats.type != 0xffffffff)
- printw (" (%Xh)", myfs_stats.type);
-
- case 13:
- widget_move (&info->widget, 13, 3);
- printw ("Device: %s",
- name_trunc (myfs_stats.device, info->widget.cols - 15));
- case 12:
- widget_move (&info->widget, 12, 3);
- printw ("Filesystem: %s",
- name_trunc (myfs_stats.mpoint, info->widget.cols - 15));
-
- case 11:
- widget_move (&info->widget, 11, 3);
- printw ("Accessed: %s", file_date (buf.st_atime));
-
- case 10:
- widget_move (&info->widget, 10, 3);
- printw ("Modified: %s", file_date (buf.st_mtime));
-
- case 9:
- widget_move (&info->widget, 9, 3);
- printw ("Created: %s", file_date (buf.st_ctime));
-
- case 8:
- widget_move (&info->widget, 8, 3);
- #if 0
- #ifdef HAVE_ST_RDEV
- if (buf.st_rdev)
- printw ("Inode dev: major: %d, minor: %d",
- buf.st_rdev >> 8, buf.st_rdev & 0xff);
- else
- #endif
- #endif
- {
- printw ("Size: ");
- print_bytesize (buf.st_size, 0);
- #ifdef HAVE_ST_BLOCKS
- printw (" (%d blocks)", buf.st_blocks);
- #endif
- }
-
- case 7:
- widget_move (&info->widget, 7, 3);
- printw ("Owner: %s/%s", get_owner (buf.st_uid),
- get_group (buf.st_gid));
-
- case 6:
- widget_move (&info->widget, 6, 3);
- printw ("Links: %d", buf.st_nlink);
-
- case 5:
- widget_move (&info->widget, 5, 3);
- printw ("Mode: %s (%o)",
- string_perm (buf.st_mode), buf.st_mode & 07777);
-
- case 4:
- widget_move (&info->widget, 4, 3);
- printw ("Location: %Xh:%Xh", buf.st_dev, buf.st_ino);
-
- case 3:
- widget_move (&info->widget, 3, 2);
- printw ("File: %s",
- name_trunc (cpanel->dir.list [cpanel->selected].fname,
- info->widget.cols - 15));
- case 2:
- case 1:
- case 0:
- ;
- } /* switch */
- #else /* HAVE_X */
- x_show_info (info, &myfs_stats, &buf);
- #endif
- }
-
- static void info_hook (void *data)
- {
- WInfo *info = (WInfo *) data;
- Widget *other_widget;
-
- other_widget = get_panel_widget (get_current_index ());
- if (!other_widget)
- return;
- if (dlg_overlap (&info->widget, other_widget))
- return;
-
- info->ready = 1;
- info_show_info (info);
- }
-
- static void info_destroy (WInfo *info)
- {
- delete_hook (&select_file_hook, info_hook);
- }
-
- static int info_callback (Dlg_head *h, WInfo *info, int msg, int par)
- {
- switch (msg){
-
- case WIDGET_INIT:
- add_hook (&select_file_hook, info_hook, info);
- info->ready = 0;
- #ifdef HAVE_X
- x_create_info (h, h->wdata, info);
- #endif
- break;
-
- #ifndef HAVE_X
- case WIDGET_DRAW:
- info_hook (info);
- info_show_info (info);
- return 1;
- #endif
-
- case WIDGET_FOCUS:
- return 0;
- }
- return default_proc (h, msg, par);
- }
-
- WInfo *info_new ()
- {
- WInfo *info = xmalloc (sizeof (WInfo), "panel_info");
-
- init_widget (&info->widget, 0, 0, 0, 0, (callback_fn)
- info_callback, (destroy_fn) info_destroy,
- (mouse_h) info_event);
-
- /* We do not want the cursor */
- widget_want_cursor (info->widget, 0);
-
- my_statfs (&myfs_stats, cpanel->cwd);
-
- if (!initialized){
- initialized = 1;
- init_my_statfs ();
- }
- return info;
- }
-
-